4 DIMD$(64)
5 FORI=1TO38:LN$=LN$+CHR$(192):NEXT
6 FORI=0TO64:READD$(I):NEXT
10 PRINTCHR$(147)CHR$(14)
20 PRINT"[211]PEICHERSTELLE 203 ENTHAELT DEN"
30 PRINT"[195]ODE DER AKTUELL GEDRUECKTEN [212]ASTE."
40 PRINT"[196]IESE [215]ERTE SIND JEDOCH NICHT MIT DEN"
50 PRINT"[194]ILDSCHIRM- UND [193][211][195][201][201]-[215]ERTEN IDENTISCH!":PRINT
60 PRINTTAB(13)"<[195]> [195]ODETABELLE"
70 PRINTTAB(13)"<[196]> [196]EMO"
75 PRINTTAB(13)"<[197]> [197]NDE"
80 GETT$
85 IFT$="C"THEN1010
86 IFT$="D"THEN2000
87 IFT$="E"THENPRINTCHR$(147):END
88 GOTO80
1010 X=1:Y=16:GOSUB3500
1020 X=17:Y=32:GOSUB3500
1030 X=33:Y=48:GOSUB3500
1040 X=49:Y=64:GOSUB3500
2000 PRINT:PRINT"  ([212]ASTATURABFRAGE BEENDEN MIT <[198]1>!)":PRINT
2001 PRINT"[211]OLANGE MAN DIE [212]ASTE GEDRUECKT HAELT,"
2002 PRINT"ERSCHEINT RECHTS UNTEN DER [212]ASTENCODE!"
2003 PRINT">>64<< BEDEUTET: KEINE [212]ASTE GEDRUECKT!"
2009 POKE211,5:POKE214,18:SYS58640:GETC$:PRINTC$;
2010 IFC$=CHR$(13)THENPRINT"[145][145]"
2011 IFC$="[133]"THENEND
2012 IFC$="[145]"THENPRINT"";
2013 IFC$=""THENPRINT"[145][145]"
2019 PRINTTAB(22)"[208][197][197][203](203)=    [157][157][157][157]"PEEK(203);
2020 GOTO2009
3000 DATA<INST/DEL>,<RETURN>,<CRSR LINKS/RECHTS>,<F7>,<F1>,<F3>,<F5>
3002 DATA<CRSR AUF/AB>,<3> <#>,<W>,<A>,<4> <$>,<Z>,<S>,<E>,,<5> <%>,<R>,<D>
3003 DATA<6> <&>,<C>,<F>,<T>,<X>,<7> <'>,<Y>,<G>,<8> <(>,<B>,<H>,<U>,<V>,<9> <)>
3004 DATA<I>,<J>,<0>,<M>,<K>,<O>,<N>,<+>,<P>,<L>,<->,<.> <>>,"<:> <[>",<@>
3005 DATA"<,> <<>",<\>,<*>,<;> <]>,<CLR/HOME>,,<=>,<^> <PI>
3006 DATA<?> </>,<1> <!>,<_>,,<2> <">,<SPACE>,,<Q>,<RUN/STOP>,KEINE TASTE
3500 [141]5000:[129]I[178]X[164]Y:[153]I;[163]20)D$(I):[130]:[141]4000:[142]
4000 [153]:[153][163]30)" (null)ASTE "
4010 [151]198,0:[146]198,1:[153][199](147):[142]
5000 [153][199](147)"LEN(null)STR$VAL (null)ATNPEEKVAL(null)(null)VAL ZU ATNDRESSE 203":[153]LN$
5002 [153]"(null)VALVAL(null) (203)"[163]20)"(null)ASTE ":[153]LN$:[142]